; Music of Pink Panther (1988) (Magic Bytes)
; Ripped by Megachur the 29/11/2006

	write "PINKPANT.BIN"

music_date_rip	equ &1db6
music_adr	equ &2720
first_theme	equ 1
last_theme	equ 4

	read "music_header_v1_0.asm"
	
; poke &2723,theme 0(stop),1->4

	jp l2727        ; play music

.l2726 equ $ + 3
.l2725 equ $ + 2
.l2724 equ $ + 1
.l2723
	db #00,#00,#00,#00
;
.real_init_music
;
;
.real_play_music
.l2727
;
	di
	push af
	ld a,(l2bb8)
	and a
	jr z,l2737
	dec a
	ld (l2bb8),a
	pop af
	ei
	ret		; modified by Megachur
	defs 1,0	; reti
.l2737
	ld a,#01
	ld (l2bb8),a
	push bc
	push de
	push hl
	push ix
	call l2792
	ld ix,l2bba
	ld a,(ix+#02)
	call l286d
	ld de,l2753
	push de
	jp (hl)
.l2753
	ld ix,l2bc6
	ld a,(ix+#02)
	call l286d
	ld de,l2762
	push de
	jp (hl)
.l2762
	ld a,(l2725)
	cp #01
	jr c,l277a
	ld hl,l2cc2
	jr z,l2784
	ld hl,l2d21
	cp #02
	jr z,l2784
	ld hl,l2d7d
	jr l2784
.l277a
	ld ix,l2bd2
	ld a,(ix+#02)
	call l286d
.l2784
	ld de,l2789
	push de
	jp (hl)
.l2789
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	nop
	ei
	ret		; modified by Megachur
;	defs 1,0	; reti
.l2792
	ld a,(l2bb9)
	ld b,a
	ld a,(l2723)
	cp b
	jr z,l27f5
	and a
	jr nz,l27bc
;
.stop_music
;
	ld a,#07
	ld c,#bf
	call l2891
	inc a
	ld c,#00
	call l2891
	inc a
	call l2891
	inc a
	call l2891
	xor a
	ld (l2bb9),a
	ld (l2724),a
	ret
;
;.init_music
.l27bc
;
	ld hl,l2724
	ld (hl),#00
	ld (l2bb9),a
	dec a
	sla a
	ld b,a
	sla a
	add b
	ld hl,l2bde
	add l
	ld l,a
	jr nc,l27d3
	inc h
.l27d3
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l2bbd),de
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (l2bc9),de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (l2bd5),de
	ld a,#01
	ld (l2bba),a
	ld (l2bc6),a
	ld (l2bd2),a
.l27f5
	and a
	ret z
	ld hl,l2bba
	call l280a
	ld hl,l2bc6
	call l280a
	ld hl,l2bd2
	call l280a
	ret
.l280a
	ld a,(hl)
	dec a
	ld (hl),a
	ret nz
	push hl
	pop ix
	ld l,(ix+#03)
	ld h,(ix+#04)
.l2817
	ld a,(hl)
	ld (ix+#00),a
	inc hl
.l281c
	ld a,(hl)
	inc hl
	ld (ix+#03),l
	ld (ix+#04),h
	cp #fa
	jr c,l2855
	jr nz,l2831
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	jp l2817
.l2831
	cp #fc
	jr nc,l2836
	ret
.l2836
	jr nz,l2843
	ld (ix+#08),#00
	ld a,(ix+#02)
	call l287f
	jp (hl)
.l2843
	cp #fe
	jr nc,l284f
	ld a,(hl)
	inc hl
	ld (ix+#02),a
	jp l281c
.l284f
	ld a,#ff
	ld (l2724),a
	ret
.l2855
	sla a
	ld hl,l2c0e
	add l
	ld l,a
	jr nc,l285f
	inc h
.l285f
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#05),e
	ld (ix+#06),d
	ld (ix+#07),#ff
	ret
.l286d
	dec a
	sla a
	sla a
	ld hl,l2bf6
	add l
	ld l,a
	jr nc,l287a
	inc h
.l287a
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ret
.l287f
	dec a
	sla a
	sla a
	ld hl,l2bf8
	add l
	ld l,a
	jr nc,l288c
	inc h
.l288c
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ret
.l2891
	push af
	push bc
	cp #07
	jr nz,l28ae
	ld a,(l28ce)
	ld b,a
	bit 7,c
	res 7,c
	jr z,l28a4
	or c
	jr l28a8
.l28a4
	ld a,c
	xor #ff
	and b
.l28a8
	ld (l28ce),a
	ld c,a
	ld a,#07
.l28ae
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	pop bc
	pop af
	ret
.l28ce
	ccf
	ld (ix+#07),#ff
.l28d3
	ld (ix+#08),#00
	ld a,(ix+#0a)
	ld c,#00
	call l2891
	ld a,(ix+#0b)
	or #80
	ld c,a
	ld a,#07
	jp l2891
.l28ea
	ld a,(ix+#07)
	and a
	jr z,l292f
	ld (ix+#08),a
	xor a
	ld (ix+#07),a
	ld a,(ix+#09)
	ld c,(ix+#05)
	ld l,c
	call l2891
	inc a
	ld c,(ix+#06)
	ld h,c
	ld (l2995),hl
	call l2891
	ld a,(ix+#0a)
	ld c,#0f
	call l2891
	ld a,(ix+#0b)
	and #07
	ld c,a
	ld a,#07
	call l2891
	ld a,#01
	ld (l2997),a
	ld a,#38
	ld (l2998),a
	ld hl,l298a
	ld (l2992),hl
.l292f
	ld a,(l2998)
	and a
	ret z
	dec a
	ld (l2998),a
	jr z,l2973
	ld a,(l2997)
	dec a
	ld (l2997),a
	ret nz
	ld a,#02
	ld (l2997),a
	ld hl,(l2992)
	ld a,(hl)
	inc hl
	cp #80
	jr nz,l2955
	ld hl,l298a
	ld a,(hl)
	scf
.l2955
	ld (l2992),hl
	ld e,a
	ld d,#00
	jr c,l295f
	ld d,#ff
.l295f
	ld hl,(l2995)
	add hl,de
	ld (l2995),hl
	ld a,(ix+#09)
	ld c,l
	call l2891
	inc a
	ld c,h
	call l2891
	ret
.l2973
	ld (ix+#08),#00
	ld a,(ix+#0a)
	ld c,#00
	call l2891
	ld a,(ix+#0b)
	or #80
	ld c,a
	ld a,#07
	jp l2891
.l298a
	ld bc,#ffff
	rst #38
	rst #38
	ld bc,#8001
.l2992
	adc d
	add hl,hl
	nop
.l2995
	nop
	nop
.l2997
	nop
.l2998
	nop
.l2999
	ld a,(l2725)
	and a
	jr z,l29a7
	xor a
	ld (ix+#07),a
	ld (ix+#08),a
	ret
.l29a7
	ld a,(ix+#07)
	and a
	jr z,l29ef
	ld (ix+#08),a
	xor a
	ld (ix+#07),a
	ld a,(ix+#09)
	ld c,(ix+#05)
	ld l,c
	call l2891
	inc a
	ld c,(ix+#06)
	ld h,c
	ld (l2a6c),hl
	call l2891
	ld a,(ix+#0a)
	ld c,#0f
	call l2891
	ld a,(ix+#0b)
	and #07
	ld c,a
	ld a,#07
	call l2891
	ld a,#01
	ld (l2a6e),a
	ld a,#0f
	ld (l2a70),a
	ld (l2a6f),a
	ld hl,l2a61
	ld (l2a69),hl
.l29ef
	ld a,(ix+#08)
	and a
	ret z
	ld a,(l2a6e)
	dec a
	ld (l2a6e),a
	jr nz,l2a2d
	ld a,#02
	ld (l2a6e),a
	ld hl,(l2a69)
	ld a,(hl)
	inc hl
	cp #80
	jr nz,l2a10
	ld hl,l2a61
	ld a,(hl)
	scf
.l2a10
	ld (l2a69),hl
	ld e,a
	ld d,#00
	jr c,l2a1a
	ld d,#ff
.l2a1a
	ld hl,(l2a6c)
	add hl,de
	ld (l2a6c),hl
	ld a,(ix+#09)
	ld c,l
	call l2891
	inc a
	ld c,h
	call l2891
.l2a2d
	ld a,(l2a6f)
	dec a
	ld (l2a6f),a
	ret nz
	ld a,#12
	ld (l2a6f),a
	ld a,(l2a70)
	and a
	ret z
	dec a
	ld (l2a70),a
	ld c,a
	ld a,(ix+#0a)
	jp l2891
.l2a4a
	ld (ix+#08),#00
	ld a,(ix+#0a)
	ld c,#00
	call l2891
	ld a,(ix+#0b)
	or #80
	ld c,a
	ld a,#07
	jp l2891
.l2a61
	ld (bc),a
	cp #fe
	cp #fe
	ld (bc),a
	ld (bc),a
	add b
.l2a69
	ld h,c
.l2a6c equ $ + 2
	ld hl,(#0000)
	nop
.l2a6e
	nop
.l2a6f
	nop
.l2a70
	nop
.l2a71
	ld a,(ix+#07)
	and a
	jr z,l2aab
	ld (ix+#08),a
	xor a
	ld (ix+#07),a
	ld a,(ix+#09)
	ld c,(ix+#05)
	call l2891
	inc a
	ld c,(ix+#06)
	call l2891
	ld a,(ix+#0a)
	ld c,#0f
	call l2891
	ld a,(ix+#0b)
	and #07
	ld c,a
	ld a,#07
	call l2891
	ld a,#01
	ld (l2adf),a
	ld a,#10
	ld (l2ade),a
.l2aab
	ld a,(l2adf)
	dec a
	ld (l2adf),a
	ret nz
	ld a,#02
	ld (l2adf),a
	ld a,(l2ade)
	and a
	ret z
	dec a
	ld (l2ade),a
	ld c,a
	ld a,(ix+#0a)
	jp l2891
.l2ac8
	xor a
	ld (ix+#08),a
	ld c,a
	ld a,(ix+#0a)
	call l2891
	ld a,(ix+#0b)
	or #80
	ld c,a
	ld a,#07
	jp l2891
.l2ade
	nop
.l2adf
	nop
.l2ae0
	ld a,(ix+#07)
	and a
	jr z,l2b08
	ld (ix+#08),a
	xor a
	ld (ix+#07),a
	ld a,(ix+#0a)
	ld c,#00
	call l2891
	ld a,(ix+#0b)
	and #38
	ld c,a
	ld a,#07
	call l2891
	ld a,#01
	ld (l2b41),a
	ld (l2b42),a
.l2b08
	ld a,(l2b41)
	dec a
	ld (l2b41),a
	ret nz
	ld a,#01
	ld (l2b41),a
	ld a,(l2b42)
	cp #10
	ret z
	inc a
	ld (l2b42),a
	cp #10
	jr z,l2b2a
	ld c,a
	ld a,(ix+#0a)
	jp l2891
.l2b2a
	ld (ix+#08),#00
	ld a,(ix+#0a)
	ld c,#00
	call l2891
	ld a,(ix+#0b)
	or #80
	ld c,a
	ld a,#07
	jp l2891
.l2b41
	nop
.l2b42
	nop
.l2b43
	ld a,(ix+#07)
	and a
	jr z,l2b7d
	ld (ix+#08),a
	xor a
	ld (ix+#07),a
	ld a,(ix+#09)
	ld c,(ix+#05)
	ld l,c
	call l2891
	inc a
	ld c,(ix+#06)
	ld h,c
	ld (l2bb5),hl
	call l2891
	ld a,(ix+#0a)
	ld c,#0f
	call l2891
	ld a,(ix+#0b)
	and #07
	ld c,a
	ld a,#07
	call l2891
	ld a,#10
	ld (l2bb7),a
.l2b7d
	ld a,(l2bb7)
	and a
	ret z
	dec a
	ld (l2bb7),a
	jr z,l2b9e
	ld hl,(l2bb5)
	ld de,#0014
	add hl,de
	ld (l2bb5),hl
	ld a,(ix+#09)
	ld c,l
	call l2891
	inc a
	ld c,h
	jp l2891
.l2b9e
	ld (ix+#08),#00
	ld a,(ix+#0a)
	ld c,#00
	call l2891
	ld a,(ix+#0b)
	or #80
	ld c,a
	ld a,#07
	jp l2891
.l2bba equ $ + 5
.l2bb9 equ $ + 4
.l2bb8 equ $ + 3
.l2bb7 equ $ + 2
.l2bb5
	db #00,#00,#00,#00,#00,#00,#00,#00
.l2bbd
	db #00,#00,#00,#00,#00,#00,#00,#08
	db #09
.l2bc9 equ $ + 3
.l2bc6
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#02,#09,#12
.l2bd5 equ $ + 3
.l2bd2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#04,#0a,#24
.l2bde
	dw l2dec,l2e02,l2eb4,l300e
	dw l303e,l3058,l3072,l30a0
	dw l30ce,l3100,l312c,l3150
.l2bf6
	dw l28d3
.l2bf8
	dw l28d3,l28ea,l2973,l2999
	dw l2a4a,l2a71,l2ac8,l2ae0
	dw l2b2a,l2b43,l2b9e
.l2c0e
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #000f,#000e,#000d,#000d
	dw #000c,#000b
.l2cc2
	ld a,(l2d1e)
	and a
	jr nz,l2cf1
	dec a
	ld (l2d1e),a
	ld a,#04
	ld c,#14
	call l2891
	inc a
	ld c,#00
	call l2891
	ld a,#07
	ld c,#04
	call l2891
	ld a,#0a
	ld c,#0f
	call l2891
	ld a,c
	ld (l2d1f),a
	ld a,#07
	ld (l2d20),a
	ret
.l2cf1
	ld a,(l2d20)
	dec a
	ld (l2d20),a
	ret nz
	ld a,#07
	ld (l2d20),a
	ld a,(l2d1f)
	dec a
	ld (l2d1f),a
	cp #05
	jr z,l2d0f
	ld c,a
	ld a,#0a
	jp l2891
.l2d0f
	ld a,#07
	ld c,#84
	call l2891
	xor a
	ld (l2725),a
	ld (l2d1e),a
	ret
.l2d1e
	db #00
.l2d1f
	db #00
.l2d20
	db #00
.l2d21
	ld a,(l2726)
	and a
	jr nz,l2d5f
	dec a
	ld (l2726),a
	ld a,#04
	ld c,#25
	call l2891
	inc a
	ld c,#00
	call l2891
	ld a,#07
	ld c,#04
	call l2891
	ld a,#0a
	ld c,#10
	call l2891
	ld a,#0d
	ld c,#08
	call l2891
	dec a
	ld c,#00
	call l2891
	dec a
	ld c,#aa
	call l2891
	ld a,#c8
	ld (l2d7c),a
	ret
.l2d5f
	ld a,(l2d7c)
	dec a
	ld (l2d7c),a
	ret nz
	ld c,#00
	ld a,#0a
	call l2891
	xor a
	ld (l2726),a
	ld (l2725),a
	ld a,#07
	ld c,#84
	jp l2891
.l2d7c
	nop
.l2d7d
	ld a,(l2de9)
	and a
	jr nz,l2dac
	dec a
	ld (l2de9),a
	ld a,#04
	ld c,#b1
	call l2891
	inc a
	ld c,#00
	call l2891
	ld a,#07
	ld c,#04
	call l2891
	ld a,#0a
	ld c,#05
	call l2891
	ld a,c
	ld (l2dea),a
	ld a,#02
	ld (l2deb),a
	ret
.l2dac
	ld a,(l2deb)
	dec a
	ld (l2deb),a
	ret nz
	ld a,#02
	ld (l2deb),a
	ld a,(l2dea)
	inc a
	ld (l2dea),a
	cp #0f
	jr z,l2dd5
	ld c,a
	ld a,#0a
	call l2891
	ld a,c
	sla a
	add #b1
	ld c,a
	ld a,#04
	jp l2891
.l2dd5
	ld a,#07
	ld c,#84
	call l2891
	xor a
	ld (l2725),a
	ld (l2de9),a
	ld c,a
	ld a,#0a
	jp l2891
.l2de9
	db #00
.l2dea
	db #00
.l2deb
	db #00
.l2dec
	db #54,#fd,#06,#0a,#38,#fd,#05,#0a
	db #70,#0a,#1c,#fd,#04,#3c,#1c,#3c
.l2e02 equ $ + 6
	db #1c,#3c,#01,#fa,#ec,#2d,#a8,#fd
	db #01,#00,#68,#fb,#fc,#fb,#94,#fb
	db #66,#fb,#fa,#fb,#fa,#fb,#fa,#fb
	db #fa,#fb,#fa,#fb,#fa,#fb,#fa,#fb
	db #fa,#fb,#fa,#fb,#fa,#fb,#56,#fb
	db #38,#fd,#02,#2b,#70,#2b,#a8,#fb
	db #38,#24,#38,#26,#38,#27,#a8,#24
	db #1c,#29,#1c,#2b,#70,#2c,#a8,#fb
	db #a8,#2b,#a8,#fb,#1c,#2b,#1c,#2c
	db #1c,#2b,#54,#2f,#a8,#fb,#a8,#2f
	db #54,#30,#54,#32,#a8,#33,#a8,#fb
	db #a8,#32,#a8,#fb,#1c,#24,#1c,#26
	db #70,#27,#a8,#fb,#1c,#29,#1c,#2b
	db #70,#2c,#a8,#fb,#1c,#24,#1c,#26
	db #70,#27,#a8,#fb,#1c,#29,#1c,#2b
	db #70,#2c,#a8,#fb,#a8,#2b,#8c,#fb
	db #1c,#2b,#1c,#27,#1c,#26,#70,#24
	db #8c,#fb,#1c,#29,#1c,#27,#1c,#26
	db #1c,#29,#1c,#27,#1c,#26,#1c,#29
	db #1c,#27,#1c,#26,#1c,#29,#1c,#27
	db #1c,#26,#1c,#29,#1c,#27,#1c,#26
	db #1c,#29,#1c,#27,#1c,#26,#1c,#29
	db #54,#27,#54,#26,#01,#fa,#0c,#2e
.l2eb4
	db #fa,#fd,#01,#00,#fa,#fb,#58,#fb
	db #54,#fd,#03,#13,#38,#0c,#1c,#0c
	db #1c,#12,#1c,#13,#1c,#0c,#38,#12
	db #54,#13,#1c,#0c,#54,#18,#38,#1a
	db #70,#1b,#54,#0c,#38,#05,#1c,#1b
	db #1c,#1d,#1c,#1b,#1c,#18,#1c,#20
	db #1c,#1d,#1c,#1b,#1c,#18,#1c,#14
	db #1c,#11,#54,#1b,#38,#1b,#70,#1a
	db #54,#08,#38,#07,#1c,#13,#1c,#19
	db #1c,#1a,#1c,#13,#38,#19,#54,#1a
	db #1c,#1b,#54,#1d,#38,#1d,#70,#1b
	db #54,#1a,#1c,#24,#1c,#22,#1c,#1f
	db #1c,#1b,#1c,#1a,#1c,#18,#1c,#18
	db #1c,#16,#1c,#13,#1c,#0f,#1c,#0e
	db #1c,#0c,#1c,#18,#1c,#16,#1c,#13
	db #1c,#0f,#1c,#0e,#70,#0c,#54,#13
	db #38,#0c,#1c,#0c,#1c,#12,#1c,#13
	db #1c,#0c,#38,#12,#54,#13,#1c,#0c
	db #54,#18,#38,#1a,#70,#1b,#54,#0c
	db #38,#05,#1c,#1b,#1c,#1d,#1c,#1b
	db #1c,#18,#1c,#20,#1c,#1d,#1c,#1b
	db #1c,#18,#1c,#14,#1c,#11,#54,#1b
	db #38,#1b,#70,#1a,#54,#08,#38,#07
	db #1c,#13,#1c,#19,#1c,#1a,#1c,#13
	db #38,#19,#54,#1a,#1c,#1b,#54,#1d
	db #38,#1d,#70,#1b,#54,#1a,#1c,#24
	db #1c,#22,#1c,#1f,#1c,#1b,#1c,#1a
	db #1c,#18,#1c,#18,#1c,#16,#1c,#13
	db #1c,#0f,#1c,#0e,#1c,#0c,#1c,#18
	db #1c,#16,#1c,#13,#1c,#0f,#1c,#0e
	db #70,#0c,#54,#13,#38,#0c,#1c,#0c
	db #1c,#12,#1c,#13,#1c,#0c,#38,#12
	db #54,#13,#54,#05,#1c,#11,#1c,#17
	db #1c,#18,#1c,#11,#38,#17,#54,#18
	db #54,#0c,#1c,#0c,#1c,#12,#1c,#13
	db #1c,#0c,#38,#12,#54,#13,#54,#05
	db #1c,#11,#1c,#17,#1c,#18,#1c,#11
	db #38,#17,#54,#18,#54,#0c,#1c,#0c
	db #1c,#12,#1c,#13,#1c,#0c,#38,#12
	db #54,#13,#54,#05,#1c,#11,#1c,#17
	db #1c,#18,#1c,#11,#38,#17,#70,#18
	db #54,#13,#54,#13,#54,#13,#54,#13
	db #54,#13,#54,#13,#54,#13,#01,#fa
.l300e equ $ + 2
	db #bc,#2e,#28,#fd,#05,#00,#28,#fd
	db #06,#0c,#28,#fd,#05,#00,#28,#00
	db #28,#fd,#06,#0c,#28,#fd,#05,#00
	db #28,#00,#28,#fd,#06,#0c,#28,#fd
	db #05,#00,#28,#00,#96,#fd,#05,#00
	db #ff,#fe,#ff,#fb,#d7,#fb,#01,#fa
.l303e equ $ + 2
	db #0e,#30,#28,#fd,#02,#1f,#50,#24
	db #28,#1f,#50,#24,#28,#1f,#50,#24
	db #ff,#fb,#ff,#fb,#ff,#fb,#ff,#fb
.l3058 equ $ + 4
	db #01,#fa,#3e,#30,#28,#fd,#03,#13
	db #50,#0c,#28,#13,#50,#0c,#28,#13
	db #50,#0c,#ff,#fb,#ff,#fb,#ff,#fb
.l3072 equ $ + 6
	db #ff,#fb,#01,#fa,#58,#30,#0f,#fd
	db #02,#27,#0f,#26,#0f,#25,#0f,#24
	db #0f,#25,#0f,#24,#0f,#23,#0f,#22
	db #0f,#23,#0f,#22,#0f,#21,#0f,#20
	db #0f,#21,#0f,#20,#0f,#1f,#0f,#1e
	db #64,#1f,#ff,#fe,#ff,#fb,#ff,#fb
.l30a0 equ $ + 4
	db #01,#fa,#72,#30,#0f,#fd,#03,#20
	db #0f,#1f,#0f,#1e,#0f,#1d,#0f,#1e
	db #0f,#1d,#0f,#1c,#0f,#1b,#0f,#1c
	db #0f,#1b,#0f,#1a,#0f,#19,#0f,#1a
	db #0f,#19,#0f,#18,#0f,#17,#ff,#18
	db #ff,#fb,#ff,#fb,#ff,#fb,#01,#fa
.l30ce equ $ + 2
	db #a0,#30,#0f,#fd,#05,#00,#0f,#00
	db #0f,#00,#0f,#00,#0f,#00,#0f,#00
	db #0f,#00,#0f,#00,#0f,#00,#0f,#00
	db #0f,#00,#0f,#00,#0f,#00,#0f,#00
	db #0f,#00,#0f,#00,#3c,#00,#c3,#fd
	db #04,#3c,#ff,#fb,#ff,#fb,#ff,#fb
.l3100 equ $ + 4
	db #01,#fa,#ce,#30,#1e,#fd,#02,#24
	db #0f,#24,#0f,#26,#1e,#24,#1e,#28
	db #1e,#24,#1e,#28,#1e,#2b,#0f,#2b
	db #0f,#2b,#1e,#28,#1e,#2f,#1e,#2b
	db #1e,#32,#b4,#30,#ff,#fe,#ff,#fb
	db #ff,#fb,#ff,#fb,#01,#fa,#00,#31
.l312c
	db #3c,#fd,#03,#18,#1e,#13,#1e,#18
	db #1e,#1a,#1e,#18,#3c,#17,#1e,#13
	db #1e,#17,#1e,#1a,#1e,#17,#b4,#1c
	db #ff,#fb,#ff,#fb,#ff,#fb,#ff,#fb
.l3150 equ $ + 4
	db #01,#fa,#2c,#31,#5a,#fd,#04,#3c
	db #5a,#3c,#5a,#3b,#5a,#3b,#b4,#3c
	db #ff,#fb,#ff,#fb,#ff,#fb,#ff,#fb
	db #01,#fa,#50,#31,#00,#00,#00,#00

;
.init_music
;
	ld (l2723),a
	jp real_init_music
;
.play_music
;
	call real_play_music
	call real_play_music
	call real_play_music
	call real_play_music
	call real_play_music
	jp real_play_music

.game_name
	db "Pink Panther",0
.game_year
	db "1988",0
.game_publisher
	db "Magic Bytes",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
